home *** CD-ROM | disk | FTP | other *** search
/ Power CD / Power CD ATARI-Rechner Lieben.iso / SPEZIAL / GEMVIEW / VERSION.3 / MODULS.SRC / CONVMODL / _CONVERT.S next >
Encoding:
Text File  |  1993-10-15  |  2.1 KB  |  61 lines
  1. module    EQU       "GVWC"
  2. intrface  EQU       0x0100
  3. gvw_ext   EQU       "    "
  4. MACRO gvw_name
  5.                    ;"----------------"
  6.           DC.B      "Convertion Modul"
  7.           ALIGN     16
  8.                    ;"----------------"
  9. ENDM
  10. MACRO gvw_copyright
  11.                    ;"------------------------"
  12.           DC.B      "V 1.00 Oct 22.`93 (c) by"
  13.           ALIGN     24
  14.           DC.B      "Dieter Fiebelkorn"
  15.           ALIGN     24
  16.           DC.B      "Grüner Weg 29a"
  17.           ALIGN     24
  18.           DC.B      "D-45768 Marl (Germany)"
  19.           ALIGN     24
  20.                    ;"------------------------"
  21. ENDM
  22.  
  23. spprt_no  EQU       0x0001
  24. spprt_mon EQU       0x0001
  25. spprt_col EQU       0x0002
  26. spprt_tc  EQU       0x0004
  27. spprt_all EQU       0x0007
  28.  
  29. flag_null EQU       0x0000
  30. flag_res  EQU       0x0001
  31.  
  32. rsvd_null EQU       0x0000
  33.  
  34.  
  35.           GLOBL     gvw_convert
  36.           GLOBL     form_alert
  37.  
  38.           JMP       gvw_failed                                  ; $00
  39.           JMP       gvw_convert                                 ; $06
  40.           DC.L      module                                      ; $0C
  41.           ALIGN     4
  42.           DC.W      intrface                                    ; $10
  43.           DC.W      spprt_no                                    ; $12
  44.           DC.W      flag_null                                   ; $14
  45.           DC.W      rsvd_null                                   ; $16
  46.           DC.W      rsvd_null                                   ; $18
  47.           DC.W      rsvd_null                                   ; $1A
  48.           DC.L      gvw_ext                                     ; $1C
  49.           ALIGN     4
  50.           gvw_name                                              ; $20
  51.           gvw_copyright                                         ; $30
  52. gvw_failed:                                                     ; $90
  53.           MOVE.W    #1, D0
  54.           LEA.L     str_failed, A0
  55.           JSR       form_alert
  56.           CLR.W     -(A7)
  57.           TRAP      #1
  58. str_failed:
  59.           DC.B      "[3][ | This is a GEM-View Module! | ][ Abort ]"
  60.           EVEN
  61.